home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
qbfe10.arc
/
STATLINE.BAS
(
.txt
)
< prev
Wrap
QuickBASIC Tokenized Source
|
1987-11-27
|
1KB
|
19 lines
StatLine
CalcAttr
attrib
XqPrint
scrnmode
StatLine
Calculate the color attributes.n
If a nul stat$ was passed, thent
reset the status line (row) to a
blank black line (turn the status
CALL XqPrint(text$, row, 1, attrib, page, scrnmode)'line off). (PROBAS)
(ADVBAS)
Status line flag off.
Status line flag on.
excessive. If it is, chop it off.p
Calculate center of line.e
Center stat$ in a 80 character
line and print it.